﻿
Partial Class Paginas_AsignacionComprador
    Inherits System.Web.UI.Page

    'Private oConfig As New AppSettingsReader
    'Private oDsArticulosPedidosACC As DataSet
    'Private Sub fnRecuperarValoresURL()
    '    'Dim oConfig As New AppSettingsReader
    '    Dim sError As String
    '    Dim sDominio As String
    '    Dim oNegCompania As New srvNegCompania.srvNegCompania
    '    Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales
    '    If oNegReCamposGlobales.fnObtenerProceso(1, "", 1, hidProceso.Value, sError) = False Then
    '        lblMensaje.Text = "Ocurrio un problema al obtener el nombre del proceso."
    '    End If

    '    hidCompania.Value = Request.Form("Compania")
    '    Me.hidRequerimiento.Value = Request.Form("Requerimiento")
    '    Me.hidEstacion.Value = Request.Form("Paso")
    '    Me.hidIncidente.Value = Request.Form("Incidente")

    '    Me.hidUsuarioUltimus.Value = Request.Form("Usuario")
    '    If oNegCompania.fnObtenerDominio(1, fnObtenerDominioUltimus(hidUsuarioUltimus.Value), sDominio, sError) = False Then
    '        lblMensaje.Text = "Ocurrio un problema al obtener el Dominio." + sError
    '    End If
    '    hidUsuario.Value = fnObtenerUsuarioConNuevoDominio(sDominio, hidUsuarioUltimus.Value)

    '    Me.hidJobFunction.Value = Request.Form("JobFunction")
    '    Me.hidTaskId.Value = Request.Form("TaskId")
    '    Me.hidTaskStatus.Value = Request.Form("TaskStatus")
    '    Me.hdnCorrelativo.Value = Request.Form("CorrelativoMando")
    'End Sub

    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    Try
    '        If Session("oDsArticulosPedidosACC") Is Nothing Then
    '        Else
    '            oDsArticulosPedidosACC = Session("oDsArticulosPedidosACC")
    '        End If

    '        If Not Me.IsPostBack Then
    '            Session("oDsArticulosPedidosACC") = Nothing
    '            Session.Timeout = 1000

    '            tblTextosAdicionales.Style.Item("display") = "none"
    '            tblDocumentosSustento.Style.Item("display") = "none"

    '            fnRecuperarValoresURL()
    '            If hidTaskStatus.Value = 3 Then
    '                fnEstablecerPantallaEstadoCompletado()
    '            End If
    '            fnCargarNombreCampos()
    '            If Not fnCargarRequerimiento() Then Exit Sub
    '            If Not fnCargarDetalleRequerimiento() Then Exit Sub
    '            fnCargarGrillaArticulos()


    '            'RegisterClientScriptBlock("PopUp", "<script language='javascript'> { CrearVentanaHija('frmPopUpEleccionCompania.aspx' ,window);} </script>")
    '        End If
    '        lblMensaje.Text = ""
    '        fnCargarEventos()
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try

    'End Sub


    'Private Sub fnEstablecerPantallaEstadoCompletado()
    '    Me.txtCampo1.Enabled = False
    '    Me.txtCampo1.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo2.Enabled = False
    '    Me.txtCampo2.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo3.Enabled = False
    '    Me.txtCampo3.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo4.Enabled = False
    '    Me.txtCampo4.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo5.Enabled = False
    '    Me.txtCampo5.CssClass = "CajasTextoInactivas"
    '    Me.btnGrabar.Enabled = False
    '    Me.btnComentario.Enabled = False
    '    Me.btnComentarioLinea.Enabled = False
    '    Me.imgCancelar.Enabled = False
    '    Me.imgGuardar.Enabled = False

    'End Sub

    'Private Function fnCargarRequerimiento() As Boolean
    '    Dim prioridad As String
    '    Dim bOk As Boolean = False
    '    Dim sError As String
    '    Dim requerimiento As Integer
    '    Dim oDsRequerimiento As DataSet
    '    Dim oNegRequerimiento As New srvNegRequerimiento.srvNegRequerimiento
    '    requerimiento = Convert.ToInt64(hidRequerimiento.Value)
    '    bOk = oNegRequerimiento.fnObtener(1, "", Me.hidCompania.Value, requerimiento, oDsRequerimiento, sError)
    '    If Not bOk Then
    '        lblMensaje.Text = sError
    '    Else
    '        Dim drRequerimiento As DataRow = oDsRequerimiento.Tables(0).Rows(0)
    '        Me.txtFechaRegistro.Text = drRequerimiento.Item(C_CB_FECHA_REQUERIMIENTO)
    '        Me.txtFechaRequerida.Text = drRequerimiento.Item(C_DG_ARTICULOS_FECHA_REQUERIMIENTO)
    '        Me.txtMotivo.Text = drRequerimiento.Item(C_CB_FECHA_MOTIVO)
    '        prioridad = drRequerimiento.Item(C_CB_PRIORIDAD)
    '        Me.txtPrioridad.Text = IIf(prioridad = 1, C_PR_BAJA, IIf(prioridad = 2, C_PR_MEDIA, C_PR_ALTA))
    '        Me.txtNumeroRequerimiento.Text = hidRequerimiento.Value
    '        Me.txtCampo1.Text = drRequerimiento.Item(C_CB_CAMPO1)
    '        Me.txtCampo2.Text = drRequerimiento.Item(C_CB_CAMPO2)
    '        Me.txtCampo3.Text = drRequerimiento.Item(C_CB_CAMPO3)
    '        Me.txtCampo4.Text = drRequerimiento.Item(C_CB_CAMPO4)
    '        Me.txtCampo5.Text = drRequerimiento.Item(C_CB_CAMPO5)
    '    End If
    '    Return bOk
    'End Function

    'Private Function fnCargarDetalleRequerimiento() As Boolean

    '    Dim bOk As Boolean = False
    '    Dim dr As DataRow
    '    Dim sError As String
    '    Dim requerimiento As Integer
    '    Dim oDsRequerimiento As DataSet
    '    Dim oNegDetalleRequerimiento As New srvNegDetalleRequerimiento.srvNegDetalleRequerimiento
    '    requerimiento = Convert.ToInt64(hidRequerimiento.Value)

    '    bOk = oNegDetalleRequerimiento.fnObtener(5, "", Me.hidCompania.Value, "", requerimiento, 0, "", oDsArticulosPedidosACC, sError)
    '    If Not bOk Then
    '        lblMensaje.Text = sError
    '    Else
    '        oDsArticulosPedidosACC.Tables(0).Columns.Add(C_DG_ARTICULOS_TIPOCOMPRA_SOPORTE)
    '        For Each dr In oDsArticulosPedidosACC.Tables(0).Rows
    '            dr.Item(C_DG_ARTICULOS_TIPOCOMPRA_SOPORTE) = dr.Item(C_DG_ARTICULOS_TIPOCOMPRA)
    '        Next
    '        Session("oDsArticulosPedidosACC") = oDsArticulosPedidosACC
    '    End If
    '    Return bOk
    'End Function

    'Private Sub fnCargarEventos()

    '    Me.btnGrabar.Attributes.Add("onclick", "if (!fnRaiseServerEvent_Valid(true, 'Está seguro que desea enviar el formulario?')) return false;")
    '    Me.btnComentario.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return MostrarComentarioCabecera();")
    '    Me.btnTrazabilidad.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return MostrarTrazabilidad()")
    '    Me.btnCerrar.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return Cerrar()")

    '    Me.imgGuardar.Attributes.Add("onclick", "if (!fnRaiseServerEvent_Valid(false)) return false;")
    '    Me.imgCancelar.Attributes.Add("onclick", "if (!fnRaiseServerEvent(false)) return false; return true;")

    '    'btnComentario.Attributes.Add("onclick", "javascript:return MostrarComentarioCabecera();")
    '    'Me.btnCerrar.Attributes.Add("onclick", "javascript:return Cerrar();")
    '    'Me.btnTrazabilidad.Attributes.Add("onclick", "javascript:return MostrarTrazabilidad()")

    '    Me.txtCampo1.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo2.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo3.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo4.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo5.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtMotivo.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")

    '    hypMostrarTextosAdicionales.NavigateUrl = "javascript:MostrarTextosAdicionales();"
    '    hypMostrarDocumentosSustento.NavigateUrl = "javascript:MostrarDocumentosSustento();"
    'End Sub

    'Private Sub fnCargarGrillaArticulos()
    '    dtgGrilla.DataSource = oDsArticulosPedidosACC.Tables(0)
    '    dtgGrilla.DataBind()
    'End Sub
    'Private Sub fnCargarNombreCampos()
    '    Dim rsError As String
    '    Dim rsCampos(5) As String

    '    Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales

    '    If oNegReCamposGlobales.fnListar(1, "", rsCampos, rsError) Then
    '        Me.lblCampo1.Text = rsCampos(0)
    '        Me.lblCampo2.Text = rsCampos(1)
    '        Me.lblCampo3.Text = rsCampos(2)
    '        Me.lblCampo4.Text = rsCampos(3)
    '        Me.lblCampo5.Text = rsCampos(4)
    '    Else
    '        lblMensaje.Text = rsError
    '    End If
    '    Me.lblCompania.Text = Me.hidCompania.Value
    '    lblUsuario.Text = Me.hidUsuario.Value
    '    Me.lblJobFunction.Text = Me.hidJobFunction.Value
    'End Sub

    'Private Function fnValidarFilaSeleccionada() As Boolean
    '    Dim _item As DataGridItem = dtgGrilla.Items(dtgGrilla.EditItemIndex)

    '    Dim bOk As Boolean = True
    '    Dim rsError As String
    '    Dim odst As DataSet


    '    fnValidarFilaSeleccionada = bOk

    'End Function

    'Private Sub fnCargarVariablesOcultas(ByVal index As Integer)

    '    'hidTipoCompra.Value = oDsArticulosPedidosACC.Tables(0).Rows(index).Item(C_DG_ARTICULOS_TIPOCOMPRA)
    '    hidTipoCompraSoporte.value = oDsArticulosPedidosACC.Tables(0).Rows(index).Item(C_DG_ARTICULOS_TIPOCOMPRA_SOPORTE)
    '    Session("C_DG_ARTICULOS_COMENTARIO") = oDsArticulosPedidosACC.Tables(0).Rows(index).Item(C_DG_ARTICULOS_COMENTARIO)

    'End Sub

    'Private Sub fnPrepararFilaSeleccionada(Optional ByVal psClasificacion As String = "")
    '    Dim _item As DataGridItem = dtgGrilla.Items(dtgGrilla.EditItemIndex)


    '    '[EVENTOS]
    '    'agregar el evento onKeyUp al control txtArticulo

    '    Dim txtComprador As TextBox = _item.FindControl("txtComprador")

    '    Dim btnComentarioLinea_onClick As String = _
    '    String.Format("if (!fnRaiseServerEvent(false)) return false; return MostrarComentario({0});", dtgGrilla.EditItemIndex)
    '    btnComentarioLinea.Attributes.Add("onclick", btnComentarioLinea_onClick)

    '    Dim txtComprador_onKeyUp As String = _
    '                 String.Format("if (!fnRaiseClientEvent(false)) return false; return MostrarDetalleRecipiente('{0}','{1}',{2},'{3}','{4}','{5}')", txtComprador.ClientID, "3", 1, oConfig.GetValue("filtroComprador", GetType(System.String)), Me.hidCompania.Value, Me.hidTipoCompraSoporte.Value) ' oConfig.GetValue("Organigrama", GetType(System.String)))
    '    txtComprador.Attributes.Add("onKeyUp", txtComprador_onKeyUp)
    '    txtComprador.Attributes.Add("onDblClick", txtComprador_onKeyUp)

    '    txtComprador.Attributes.Add("readonly", "readonly")

    '    If Me.dtgGrilla.EditItemIndex <> -1 Then
    '        Dim imgEliminar_onclick As String
    '        imgEliminar_onclick = "javascript:return ConfirmacionEliminacion();"
    '    End If

    '    txtComprador.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event);")

    '    '[VALIDATORS]
    '    'agregar los mensajes a los Validators

    '    Dim rfvComprador As RequiredFieldValidator = _item.FindControl("rfvComprador")
    '    rfvComprador.Text = "1."
    '    rfvComprador.ErrorMessage = "1." + C_MSG_RFV_COMPRADOR

    'End Sub

    'Private Function fnValidaGuardar() As Boolean
    '    Dim dr As DataRow
    '    Dim bOk As Boolean = True
    '    For Each dr In oDsArticulosPedidosACC.Tables(0).Rows
    '        If Convert.ToString(dr(C_DG_ARTICULOS_COMPRADOR)).Trim.ToString = "" Then
    '            bOk = False
    '        End If
    '    Next
    '    If bOk = False Then
    '        Me.lblMensaje.Text = "Hay filas sin comprador asignado."
    '    End If
    '    Return bOk
    'End Function


    'Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btngrabar.Click
    '    Try
    '        If Not Page.IsValid Then Exit Sub
    '        If dtgGrilla.EditItemIndex <> -1 Then
    '            Me.lblMensaje.Text = C_MSG_CV_NO_LINEA_EDITABLE
    '            Exit Sub
    '        End If
    '        Dim bOk As Boolean = False
    '        Dim sError As String
    '        bOk = fnValidaGuardar()
    '        If Not bOk Then Exit Sub
    '        If bOk Then
    '            Dim oNegRequerimiento As New srvNegRequerimiento.srvNegRequerimiento
    '            bOk = oNegRequerimiento.fnActualizarRequerimiento_AsigComprador(1, "", Me.lblCompania.Text, txtNumeroRequerimiento.Text, Me.hidComentario.Value, System.DateTime.Today, Me.hidUsuario.Value, _
    '                  Me.txtCampo1.Text, Me.txtCampo2.Text, Me.txtCampo3.Text, Me.txtCampo4.Text, Me.txtCampo5.Text, oDsArticulosPedidosACC, sError)

    '            If Not bOk Then
    '                lblMensaje.Text = sError
    '            Else

    '                Dim oUltimusInt As New UltimusInt.UltIntegration
    '                Dim nIncident As Integer


    '                Dim oArrVariables(10) As UltimusInt.Variable
    '                Dim obj1 As Object() = {Me.txtNumeroRequerimiento.Text}
    '                oArrVariables(0) = New UltimusInt.Variable
    '                oArrVariables(0).strVariableName = "V_nRequerimiento"
    '                oArrVariables(0).objVariableValue = obj1

    '                Dim obj2 As Object() = {hidCompania.Value}
    '                oArrVariables(1) = New UltimusInt.Variable
    '                oArrVariables(1).strVariableName = "V_sCompania"
    '                oArrVariables(1).objVariableValue = obj2

    '                Dim obj3 As Object() = {Me.hidUsuarioUltimus.Value}
    '                oArrVariables(2) = New UltimusInt.Variable
    '                oArrVariables(2).strVariableName = "V_sUsuarioRegistroPedido"
    '                oArrVariables(2).objVariableValue = obj3

    '                Dim obj4 As Object() = {Me.txtCampo1.Text}
    '                oArrVariables(3) = New UltimusInt.Variable
    '                oArrVariables(3).strVariableName = "V_sCampo1"
    '                oArrVariables(3).objVariableValue = obj4

    '                Dim obj5 As Object() = {Me.txtCampo2.Text}
    '                oArrVariables(4) = New UltimusInt.Variable
    '                oArrVariables(4).strVariableName = "V_sCampo2"
    '                oArrVariables(4).objVariableValue = obj5

    '                Dim obj6 As Object() = {Me.txtCampo3.Text}
    '                oArrVariables(5) = New UltimusInt.Variable
    '                oArrVariables(5).strVariableName = "V_sCampo3"
    '                oArrVariables(5).objVariableValue = obj6

    '                Dim obj7 As Object() = {Me.txtCampo4.Text}
    '                oArrVariables(6) = New UltimusInt.Variable
    '                oArrVariables(6).strVariableName = "V_sCampo4"
    '                oArrVariables(6).objVariableValue = obj7

    '                Dim obj8 As Object() = {Me.txtCampo5.Text}
    '                oArrVariables(7) = New UltimusInt.Variable
    '                oArrVariables(7).strVariableName = "V_sCampo5"
    '                oArrVariables(7).objVariableValue = obj8

    '                Dim obj9 As Object() = {Me.txtFechaRegistro.Text.ToString}
    '                oArrVariables(8) = New UltimusInt.Variable
    '                oArrVariables(8).strVariableName = "V_dFechaRegistro"
    '                oArrVariables(8).objVariableValue = obj9

    '                Dim obj10 As Object() = {Me.txtFechaRequerida.Text.ToString}
    '                oArrVariables(9) = New UltimusInt.Variable
    '                oArrVariables(9).strVariableName = "V_dFechaRequerida"
    '                oArrVariables(9).objVariableValue = obj10


    '                bOk = oUltimusInt.SubmitTask(hidTaskId.Value, hidUsuarioUltimus.Value, "Requerimiento: " + Me.txtNumeroRequerimiento.Text, hidIncidente.Value, oArrVariables, sError)


    '                If Not bOk Then
    '                    lblMensaje.Text = "Ocurrió un error al intentar enviar el incidente. con usuario:" + hidUsuarioUltimus.Value + " task:" + hidTaskId.Value + " " + sError
    '                    Exit Sub
    '                Else
    '                    lblMensaje.Text = ""
    '                    Session("oDsArticulosPedidosACC") = Nothing
    '                    RegisterClientScriptBlock("Cerrar", "<script language='javascript'> { window.parent.close();} </script>")
    '                End If
    '            End If
    '        Else
    '            lblMensaje.Text = sError
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try

    'End Sub

    'Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btncerrar.Click
    '    Session("oDsArticulosPedidosACC") = Nothing
    'End Sub

    'Private Sub dtgGrilla_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrilla.ItemDataBound
    '    Dim TipoReq As String = ""
    '    Try
    '        Dim lbl As Label = e.Item.FindControl("lblTipoArticulo")
    '        TipoReq = lbl.Text
    '    Catch ex As Exception

    '    End Try
    '    If TipoReq <> "" Then
    '        Dim img As System.Web.UI.WebControls.Image = e.Item.FindControl("imgTipoRequerimiento")
    '        If TipoReq = "Activo Fijo" Then
    '            img.ImageUrl = "Imagenes/ActivoFijo.bmp"
    '        ElseIf TipoReq = "Servicio" Then
    '            img.ImageUrl = "Imagenes/Servicio.bmp"
    '        ElseIf TipoReq = C_ID_TIPO_ARTICULO_NOMBRE_NINGUNO Then
    '            img.ImageUrl = "Imagenes/Ninguno.bmp"
    '        ElseIf TipoReq = C_ID_TIPO_ARTICULO_NOMBRE_NO_INVENTARIABLE Then
    '            img.ImageUrl = "Imagenes/NoBien.bmp"
    '        Else
    '            img.ImageUrl = "Imagenes/Bien.bmp"
    '        End If
    '        img.AlternateText = TipoReq
    '    End If




    'End Sub

    ''Private Sub lnkMostrarTextosAdicionales_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkMostrarTextosAdicionales.Text = "Mostrar" Then
    ''        lnkMostrarTextosAdicionales.Text = "Ocultar"
    ''        tblTextosAdicionales.Visible = True
    ''    Else
    ''        lnkMostrarTextosAdicionales.Text = "Mostrar"
    ''        tblTextosAdicionales.Visible = False
    ''    End If
    ''End Sub

    ''Private Sub lnkMostrarDocumentosSustento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkMostrarDocumentosSustento.Text = "Mostrar" Then
    ''        lnkMostrarDocumentosSustento.Text = "Ocultar"
    ''        tblDocumentosSustento.Visible = True
    ''    Else
    ''        lnkMostrarDocumentosSustento.Text = "Mostrar"
    ''        tblDocumentosSustento.Visible = False
    ''    End If
    ''End Sub



    'Private Sub imgGuardar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgguardar.Click
    '    Try
    '        If dtgGrilla.EditItemIndex = -1 Then
    '            lblMensaje.Text = C_MSG_RFV_LINEA
    '            Exit Sub
    '        End If
    '        Page.Validate()
    '        If Not Page.IsValid Then Exit Sub

    '        Dim _item As DataGridItem = dtgGrilla.Items(dtgGrilla.EditItemIndex)
    '        Dim drArticulo As DataRow
    '        Dim txtComprador As TextBox = _item.FindControl("txtComprador")
    '        If fnValidarFilaSeleccionada() Then

    '            drArticulo = oDsArticulosPedidosACC.Tables(0).Rows(dtgGrilla.EditItemIndex)
    '            drArticulo(C_DG_ARTICULOS_COMPRADOR) = txtComprador.Text.Trim

    '            Dim Comprador() As String = txtComprador.Text.Trim.Split("\")
    '            Dim sRegion As String
    '            sRegion = Comprador(0).Substring(Comprador(0).IndexOf(CC_CHAR_ESP) + 1)
    '            If sRegion.ToUpper.Trim <> "NACIONAL" Then
    '                sRegion = "REGIONAL"
    '            End If
    '            drArticulo(C_DG_ARTICULOS_TIPOCOMPRA) = sRegion

    '            drArticulo(C_DG_ARTICULOS_COMENTARIO) = Session("C_DG_ARTICULOS_COMENTARIO")

    '            dtgGrilla.EditItemIndex = -1
    '            dtgGrilla.SelectedIndex = -1

    '            fnDesHabilitarComentario()

    '            Session("oDsArticulosPedidosACC") = oDsArticulosPedidosACC
    '            fnCargarGrillaArticulos()
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try

    'End Sub



    'Private Sub dtgGrilla_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrilla.ItemCreated

    '    If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.SelectedItem Then
    '        e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor='beige';this.style.cursor='hand'")
    '        e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor='white';")

    '        NetFrameworkNameControl(e)

    '        'Dim oConfig As New AppSettingsReader
    '        'If oConfig.GetValue("NetFrameworkNameControl", GetType(System.String)) = "1" Then
    '        '    e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrilla$" & "_ctl" & (e.Item.ItemIndex + 2).ToString & "$_ctl2','')")
    '        'Else
    '        '    e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrilla$" & "ctl0" & (e.Item.ItemIndex + 2).ToString & "$ctl02','')")
    '        'End If


    '    End If
    'End Sub
    'Private Sub fnDesHabilitarComentario()
    '    Dim btnComentarioLinea_onClick As String = _
    '             String.Format("if (!fnRaiseClientEvent(false)) return false; return MostrarComentario({0});", "-1")
    '    btnComentarioLinea.Attributes.Add("onclick", btnComentarioLinea_onClick)
    'End Sub


    'Private Sub fnCancelarGrilla()
    '    Try
    '        If dtgGrilla.EditItemIndex = -1 Then
    '            lblMensaje.Text = C_MSG_RFV_LINEA
    '            Exit Sub
    '        End If
    '        fnDesHabilitarComentario()
    '        dtgGrilla.EditItemIndex = -1
    '        dtgGrilla.SelectedIndex = -1
    '        Session("oDsArticulosPedidosACC") = oDsArticulosPedidosACC
    '        fnCargarGrillaArticulos()
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub

    'Private Sub fnModificarGrilla()
    '    Try
    '        If dtgGrilla.EditItemIndex <> -1 Then Exit Sub
    '        If dtgGrilla.SelectedIndex = -1 Then Exit Sub
    '        Page.Validate()
    '        If Not Page.IsValid Then Exit Sub
    '        dtgGrilla.EditItemIndex = dtgGrilla.SelectedIndex
    '        fnCargarVariablesOcultas(dtgGrilla.SelectedIndex)
    '        fnCargarGrillaArticulos()
    '        fnPrepararFilaSeleccionada()
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try

    'End Sub

    'Private Sub dtgGrilla_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtggrilla.SelectedIndexChanged
    '    Try
    '        If dtgGrilla.EditItemIndex <> -1 Then
    '            dtgGrilla.SelectedIndex = dtgGrilla.EditItemIndex
    '            lblMensaje.Text = C_MSG_CV_NO_LINEA_EDITABLE
    '            Exit Sub
    '        End If
    '        dtgGrilla.SelectedItem.Attributes.Item("onmouseover") = "this.style.cursor='hand'"
    '        dtgGrilla.SelectedItem.Attributes.Remove("onmouseout")
    '        If Me.hidTaskStatus.Value <> "3" Then
    '            fnModificarGrilla()
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try

    'End Sub


    'Private Sub imgCancelar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgcancelar.Click
    '    fnCancelarGrilla()
    'End Sub

    'Private Sub btnComentarioLinea_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btncomentariolinea.Click
    '    If dtgGrilla.SelectedIndex <> -1 Then

    '        oDsArticulosPedidosACC.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_COMENTARIO) = Session("C_DG_ARTICULOS_COMENTARIO")
    '        Session("oDsArticulosPedidosACC") = oDsArticulosPedidosACC
    '    Else
    '        lblMensaje.Text = C_MSG_RFV_LINEA
    '    End If
    'End Sub



End Class
